perl object example

join shbcf.ru